home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Alpha 6.5.sit / Tcl / ElectricAlias / Aliases / aliases.Perl < prev    next >
Text File  |  1994-06-18  |  1KB  |  26 lines
  1. # FILE: aliases.Perl
  2. #
  3. # DESC: Aliases for Perl mode
  4. #
  5. # LAST UPDATE: 01/06/93 5:29:47 AM 
  6.  
  7.     electricAlias-def ･Perl ･Perl ･Perl
  8.     electricAlias-var Perl bb "¥{"
  9.     electricAlias-var Perl eb "¥}"
  10.     electricAlias-var Perl bc "#"
  11.     electricAlias-var Perl ec ""
  12.     electricAlias-def ･Perl #!       "､ﾇaskalias {File name} NAMEﾈ#! /usr/local/bin/perl -f¥r#¥r# ､{NAME}･¥r¥r･"
  13.     electricAlias-def ･Perl sub      "､ﾇaskalias {subroutine name} NAMEﾈsub ､{NAME} ¥{¥r¥tlocal (･)=@_;¥r¥t･¥r¥}､{bc}endsub ､{NAME}､{ec}･"
  14.     electricAlias-def ･Perl ¥{       "¥{¥r¥t･¥r¥}･"
  15.     electricAlias-def ･Perl do       "do ¥{¥r¥t･¥r¥} while (･);･"
  16.     electricAlias-def ･Perl for      "for (･;･;･) ¥{¥r¥t･¥r¥}､{bc}endfor､{ec}･"
  17.     electricAlias-def ･Perl foreach  "foreach ･ (･) ¥{¥r¥t･¥r¥}､{bc}endforeach､{ec}･"
  18.     electricAlias-def ･Perl while    "while (･) ¥{¥r¥t･¥r¥}､{bc}endwhile､{ec}･"
  19.     electricAlias-def ･Perl until    "until (･) ¥{¥r¥t･¥r¥}､{bc}enduntil､{ec}･"
  20.     electricAlias-def ･Perl if       "if (･) ¥{¥r¥t･¥r¥}､{bc}endif､{ec}･"
  21.     electricAlias-def ･Perl unless   "unless (･) ¥{¥r¥t･¥r¥}､{bc}endunless､{ec}･"
  22.     electricAlias-def ･Perl elsif    "¥b¥} elsif (･) ¥{¥r･"
  23.     electricAlias-def ･Perl elseif   "¥b¥} elsif (･) ¥{¥r･"
  24.     electricAlias-def ･Perl else     "¥b¥} else ¥{¥r･"
  25.  
  26.